home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / TOUGH.SDA / TOUGH INST (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.0 KB  |  111 lines
  1. 20 REM HS DISK 11 S1
  2. 25 POKE53280,3 :POKE53281,3 :PRINT"[147][142][151]";
  3. 32 PRINT"[152][205]                                      [223]";
  4. 33 PRINT"[152] [151]                                       [146]";
  5. 34 PRINT"[152][223][151]                                       [146]";:PRINT"    [152] [151]   "
  6. 38 PRINT"    [152] [151]   [152][205]     [223][205] [223][205] [223][205]     [223][205] [223][205] [223][146]";
  7. 40 PRINT"    [152] [151]   [152] [151]      [152] [151]  [152] [151]  [152] [151]      [152] [151]  [152] [151]  [146]";
  8. 45 PRINT"    [152] [151]   [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152][146][223][151]  [152] [151]  [152] [151]  [146]";
  9. 50 PRINT"    [152] [151]   [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [205][151]  [146]";
  10. 55 PRINT"    [152] [151]   [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152][205]  [223][152] [151]      [146]";
  11. 60 PRINT"    [152] [151]   [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152] [151]  [152][146][223][151]   [152] [151]  [152] [151]  [146]";
  12. 65 PRINT"    [152] [151]   [152] [151]  [152] [205][151]  [152] [151]  [152] [205][151]  [152] [151]  [152] [205][151]  [152] [151]  [152] [151]  [146]";
  13. 70 PRINT"    [152][223][151]   [152][146][223][151]    [151]  [152][146][223][151]      [152][146][223][151]      [152][146][223][151]  [152][146][223][151]  [146]";
  14. 80 PRINT"[158]       A GAME MUCH LIKE SOLITAIRE.
  15. 100 [153]"POKE  PRESS <SPACE> FOR TOUGH INSTRUCTIONS":[146]197,7
  16. 1820 [151]53280,15:[151]53281,15:[153]"LOAD"
  17. 1880 [151]53280,15:[151]53281,15:[153]"LOAD"
  18. 1890 [153]"POKE (null)(null)(null)CHR$LEFT$ IS VERY MUCH LIKE THE CARD"
  19. 1900 [153]"GAME (null)(null)(null)RIGHT$(null)ATNRIGHT$(null)VAL.
  20. 1910 PRINT"[212]HERE ARE 7 ROWS OF CARDS - [212]HE FIRST"
  21. 1920 PRINT"WITH ONE CARD, THE SECOND WITH TWO, ETC."
  22. 1930 PRINT"[207]N THE RIGHT OF THE SCREEN IS A PILE"
  23. 1940 PRINT"FOR EACH SUIT.  [193]T THE SCREEN'S BOTTOM"
  24. 1950 PRINT"YOU'LL SEE A [196][146][151]ECK FROM WHICH TO DRAW"
  25. 1960 PRINT"CARDS, AND A [211][146][151]TACK FOR DISCARDS."
  26. 1970 PRINT"[212]HE CARD DRAWN FROM THE [196][146][151]ECK WILL BE"
  27. 1980 PRINT"DISPLAYED ON THE [211][146][151]TACK.  [217]OU THEN"
  28. 1990 PRINT"HAVE THE OPTION OF PLACING IT ON ONE OF"
  29. 2000 PRINT"THE ROWS (IF POSSIBLE), OR DRAWING"
  30. 2010 PRINT"ANOTHER CARD FROM THE [196][146][151]ECK.":GOSUB2890
  31. 2020 PRINT"[147][151][217]OU MUST PLACE CARDS ON THE ROWS"
  32. 2040 PRINT"IN DECENDING ORDER, ALTERNATING COLORS  STARTING WITH THE KING[146]."
  33. 2050 PRINT"[151][217]OU WILL EARN POINTS EACH TIME YOU"
  34. 2060 PRINT"CAN ADD TO A ROW.  [195]AREFUL![151]  [201]F YOU TRY"
  35. 2070 PRINT"TO PLACE A CARD INCORRECTLY, IT'S"
  36. 2080 PRINT"[212][207][213][199][200] AND YOU'LL LOSE POINTS!"
  37. 2090 PRINT"[212]HE OBJECT OF THE GAME IS TO PLACE AS"
  38. 2100 PRINT"MANY CARDS ON THE [154]PILE[151] AS YOU CAN."
  39. 2110 PRINT"[212]HESE MUST BE IN ASCENDING ORDER,"
  40. 2120 PRINT"STARTING WITH THE ACE[146].[151]"
  41. 2130 PRINT"[197]ACH TIME A CARD IS PLAYED ON THE [154]PILE[151]"
  42. 2140 PRINT"YOU'LL EARN 25 POINTS TIMES THE AMOUNT"
  43. 2150 PRINT"OF YOUR BET!":GOSUB2890
  44. 2200 PRINT"[147][151][217]OU CAN ALSO TAKE CARDS FROM ONE ROW"
  45. 2210 PRINT"AND PLACE THEM ON ANOTHER ROW, AS LONG"
  46. 2220 PRINT"AS THEY'RE KEPT IN DECENDING[146][151] ORDER,"
  47. 2230 PRINT"AND YOU KEEP ALTERNATING[146][151] THE COLORS."
  48. 2240 PRINT"[201]F YOU MOVE A CARD, OR GROUP OF CARDS,"
  49. 2250 PRINT"FROM A ROW, THE CARD BELOW AUTOMATICALLY";
  50. 2260 PRINT"TURNS OVER. (MAYBE IT'S ONE YOU'RE"
  51. 2270 PRINT"LOOKING FOR!)"
  52. 2280 PRINT"[215]HEN YOU MOVE A CARD FROM THE [211][146][151]TACK"
  53. 2290 PRINT"TO A ROW, THE [211][146][151]TACK WILL DISPLAY"
  54. 2300 PRINT"THE PREVIOUS CARD (WHICH YOU NOW MIGHT"
  55. 2310 PRINT"BE ABLE TO USE, SOMEWHERE!)
  56. 2320 [153]"RIGHT$F YOU EMPTY A ROW, YOU MAY MOVE A"
  57. 2330 [153]"(null)INGWAITPOKE THERE, TO START A NEW ROW."
  58. 2340 [153]"((null)OTE: THE KING IS THE ONLY CARD THAT"
  59. 2350 [153]"MAY BE MOVED TO AN EMPTY ROW.)":[141]2890
  60. 2370 [153]"LOADPOKEATNT THE BOTTOM OF THE SCREEN YOU'LL SEE"
  61. 2380 [153]"THE WORDS FROMWAITFNPOKE AND TOWAITPOKE. RIGHT$F YOU WANT"
  62. 2390 [153]"TO MOVE A CARD FROM THE (null)WAITPOKETACK TO A ROW,"
  63. 2400 [153]"JUST PRESS '(null)' AND THE NUMBER OF THE"
  64. 2410 [153]"ROW DESIRED. RIGHT$F THE CARD BELONGS THERE"
  65. 2420 [153]"IT WILL BE MOVED AND YOU'LL GAIN SOME"
  66. 2430 [153]"POINTS.  (RIGHT$F IT DOESN'T BELONG THERE, RIGHT$"
  67. 2440 [153]"MAY GET (null)(null)(null)CHR$LEFT$ ON YOU!)"
  68. 2450 [153]"(null)O MOVE A CARD (OR CARDS) FROM ONE ROW"
  69. 2460 [153]"TO ANOTHER, PRESS THE NUMBER OF THE ROW"
  70. 2470 [153]"FROM WHICH YOU WANT TO MOVE, AND THEN"
  71. 2480 [153]"THE NUMBER OF THE ROW TO MOVE TO."
  72. 2490 [153]"(null)O DRAW A CARD FROM THE STR$WAITPOKEECK, JUST"
  73. 2500 [153]"PRESS 'STR$'. THE NEW CARD WILL APPEAR ON"
  74. 2510 [153]"THE (null)WAITPOKETACK. (null)LAY IT IF YOU CAN, OR"
  75. 2520 [153]"DRAW AGAIN.":[141]2890
  76. 2540 [153]"LOADPOKEPEEKECAUSE RIGHT$ SOMETIMES FEEL SORRY FOR YOU,"
  77. 2550 [153]"RIGHT$ WILL HELP YOU FROM TIME TO TIME!  RIGHT$F"
  78. 2560 [153]"THERE IS A CARD EXPOSED THAT CAN BE"
  79. 2570 [153]"PLAYED ON THE CONTPILEPOKE (AND EARN YOU SOME"
  80. 2580 [153]"EXTRA POINTS,) RIGHT$ WILL AUTOMATICALLY MOVE";
  81. 2590 [153]"IT THERE.  LEFT$OWEVER, RIGHT$ WILL MAKE SOME"
  82. 2600 [153]"EXCEPTIONS. RIGHT$ WON'T MOVE A CARD IF THERE";
  83. 2610 [153]"IS ANOTHER CARD THAT HAS NOT YET COME UP";
  84. 2620 [153]"THAT CAN BE PLAYED ON IT.  RIGHT$ ALSO WON'T"
  85. 2630 [153]"TOUCH A CARD IF ONE THAT CAN BE PLAYED"
  86. 2640 [153]"ON IT IS STILL COVERED UP IN A ROW."
  87. 2650 [153]"RIGHT$T'S UP TO YOU TO UNCOVER IT FOR ME,"
  88. 2660 [153]"AND THEN RIGHT$'LL MOVE IT TO THE PILE IF RIGHT$"
  89. 2670 [153]"FEEL LIKE IT! (null)F COURSE YOU CAN ALWAYS"
  90. 2680 [153]"TRY THE MOVE YOURSELF BY PRESSING THE"
  91. 2690 [153]"NUMBER OF THE ROW, THEN '(null)' FOR (null)WAITPOKEILE."
  92. 2700 [153]"IF RIGHT$'M IN A GOOD MOOD, RIGHT$ MAY LET YOU"
  93. 2710 [153]"GET AWAY WITH IT!ON":[141]2890
  94. 2730 [153]"LOADPOKE(null)INCE WE'RE ONLY PLAYING WITH ONE DECK,"
  95. 2740 [153]"THE ONE YOU'LL PICK FROM ONLY HAS 23"
  96. 2750 [153]"CARDS LEFT. ((null)HE REST ARE ALREADY FACE-"
  97. 2760 [153]"DOWN IN THE ROWS). (null)HEN YOU'VE TURNED"
  98. 2770 [153]"OVER ALL THE REMAINING CARDS IN THE"
  99. 2780 [153]"DECK, THE ROUND WILL BE OVER. (null)OUR SCORE";
  100. 2790 [153]"AT THAT TIME WILL BE CALCULATED ON HOW"
  101. 2800 [153]"MUCH YOU BET, AND THE NUMBER OF CARDS"
  102. 2810 [153]"YOU WERE ABLE TO PUT ON THE ROWS AND ON"
  103. 2820 [153]"THE CONTPILEPOKE, LESS DEDUCTIONS."
  104. 2840 [153]"VALACH GAME CONSISTS OF TWO TURNS, BUT"
  105. 2850 [153]"YOU CAN QUIT AND START A NEW ONE"
  106. 2860 [153]"ANYTIME.  ((null)HIS MAY BE YOUR CHOICE IF"
  107. 2870 [153]"THE SCORE ISN'T GOING YOUR WAY, AND RIGHT$'VE";
  108. 2880 [153]"BEEN TOO TOUGH ON YOU.)  CHR$(null)(null)STR$ (null)(null)LEN(null)!":[141]2890:[137]2900
  109. 2890 [153]"       (null)RESS <(null)(null)ATNLENVAL> TO LENONTINUE":[146]197,7:[142]
  110. 2900 F$[178]"TOUGH":[153]"LOADRETURNLISTLOADF$,8POKE":[151]631,19:[151]632,131:[151]198,2:[128]
  111.